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APPENDIX 



The following code listing shows one implementation of the conventional VSCALE routine in accordance with 
ITU (International Telecommunication Union)-T Recommendation G.728 - Annex G. 



; search for maximum positive 

movs 
movx 



pcopy yO,yl, 
pcmp xl , yO 
pcopy xl , yO 
pcmp xl,yl 
pcopy xl,yl 
pcmp xl,yO 
pcopy xl , yO 
pcmp xl,yl 
pcopy xl,yl 
pcmp xl,yO 
dct pcopy xl,yO 

pcmp xl , yl 
dcf pcopy xl,yl 

pcmp xl , yO 
dct pcopy xl,yO 

pcmp xl,yl 
dcf pcopy xl,yl 



dct 
dcf 
dct 
dcf 



and negative values in vector 
.w @r4+,y0 
. w @r4+,xl 



movx . w @r4 + , xl 



movx.w @r4+ , xl 



movx 
movx 
movx . w 



@r4 , xl 
@r4+r8 , xO 
@r4+r8 , xO 



movx.w @r4+r8,x0 
movx.w @r4+r8,x0 



sts yO,rl 
mov rl,rO 

sts yl,r7 

or r7,r0 

tst rO,rO 

bt VS_ZERO 

pabs yl,yl 

pclr aO 

pine aO,aO 

Ids r6,y0 

psha #16, yO 

psha aO,yO,aO 



sts yl,rO 
cmp/ge rO,rl 
bt/s vs pos 
mov #0,r0 

sts aO, r3 
neg r3 , r3 
mov r3 , r2 
shll r2 

cmp/ge r2 , r7 

bf vsloop3 

cmp/gt r7,r3 
bt vs end2 



;Case 3: maximum negative value still has room for normalization 

.align 4 
vsloop41: 

shal r7 

cmp/gt r7 , r3 

bf /s vsloop41 
add #l,rO 
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• 



10 



15 



Ids rO,yO 
psha #16, yO 

movs.w @r4+,xl 

psha xl,y0,a0 movx.w @r4+,xl 
psha xl,yO,al movx.w @r4+,xl 

movs . w aO , @r5+ 
movx.w al,@r5+ 
psha xl,y0,a0 movx.w @r4+,xl 
psha xl,yO,al movx.w @r4+,xl 

movx.w a0,@r5+ 

psha xl,y0,a0 
movx.w al,@r5+ 

movx.w a0,@r5+ 

rts 
nop 



/Case 2: maximum negative value exceeds minimum range vsloop3 
20 cmp/ge r2 , r7 

bt vs_end2 
•!f .align 4 

^Jf vsloop31: 
^ shar r7 

\§5 cmp/ge r2 , r7 

|y bf/s vsloop31 
% %j add #-l,r0 
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40 



Ids r0,y0 
psha #16,y0 
movs.w @r4+,xl 
psha xl,y0,a0 
psha xl,y0,al 



psha 
psha 



xl , yO , aO 
xl , yO , al 



psha xl , yO , aO 



movx.w @r4+,xl 
movx.w @r4+,xl 
movs.w a0,@r5+ 
movx.w al,@r5+ 
movx.w @r4+,xl 
movx.w @r4+,xl 
movx.w a0,@r5+ 

movx.w al , @r5 + 
movx.w a0,@r5+ 
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50 



55 



rts 
nop 

/Case 1: zero input vector 
VS_ZER0 : 

pclr aO 



mov r6,r0 
add #l,r0 



movs.w a0 / @r5+ 
movx.w a0,@r5+ 
movx . w a 0 , @r 5 + 
movx.w a0,@r5+ 
movx.w a0,@r5+ 



60 



rts 
nop 

. align 



vs_pos : 
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55 



sts a0,r2 

mov r2 , r3 
add #-1 , r3 

add r2 , r3 

5 

cmp/ge rl,r3 

bf vsloopS 

cmp/ge r2 , rl 

10 bt vs_end2 

/Case 5: maximum positive value still has room for normalization 

.align 4 
vsloop61 : 
15 shal rl 

cmp/ge r2 , rl 

bf/s vsloop61 
add #l,r0 
vs_end2 : 
20 Ids r0,y0 

psha #16,y0 
movs . w @r4 + , xl 

psha xl,y0,a0 movx.w @r4+,xl 
\U psha xl,y0,al movx.w @r4+,xl 

\M5 movs.w a0,@r5+ 

?|j movx.w al,@r5+ 

psha xl,y0,a0 movx.w @r4 + ,xl 
^ psha xl,y0,al movx.w @r4+,xl 

movx.w a0,@r5+ 



?j 30 psha xl,y0,a0 



movx.w al,@r5+ 
movx.w a0,@r5+ 



14 rts 
1 |S5 nop 

;Case 4: maximum positive value exceeds maximum range 
vsloopS 

cmp/ge rl,r3 
40 bt vs_end2 

.align 4 
vsloopS : 

shar rl 
45 cmp/ge rl , r3 

bf/s vsloopSl 
add #-l,rO 

bra vs_end2 
50 nop 



The following is an algorithm in accordance with a first embodiment of the 
present invention. 



/search for minimum NLS 

movs.w @r4+,x0 
pdmsb xO,a0 movx.w @r4+,x0 

pdmsb x0,y0 
60 pcmp a0,y0 

dct pcopy yO,aO movx.w @r4+,x0 
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pdmsb xO , yO 

pcmp aO,yO 
dct pcopy y0,a0 

pdmsb xO,y0 

pcmp a0,y0 
dct pcopy yO,aO 

pdmsb x0,y0 

pcmp a0,y0 
dct pcopy y0,a0 

psha #— 16, aO 



movx.w @r4+,x0 



movx . w @r4 , xO 
movx.w @r4+r8 , xl ; dummy movx to reset r4 = &IN[0] 
movx.w @r4+r8,xl 
movx.w @r4+r8,xl 
movx.w @r4+r8,xl 



sts 



aO , rO 



;rO=NLS MIN 



;Case 1: zero input vector 
15 cmp/eq #31, rO 

bf /s VSCALEl_check_NLSeq31_end 



mov 



r6 , r7 



;r6=MLS 
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135 



-30 



!fS5 



40 



45 



mov r6 , 
add #1, 
pclr aO 



rO 
rO 



;set rO=NLS = MLS + 1 



movs . w a0,@r5+ 
movx.w a0,@r5+ 
movx.w a0,@r5+ 
movx.w a0,@r5+ 
movx.w a0,@r5+ 



rts 
nop 



;Case 2: non-zero input vector 
VSCALEl_check_NLSeq31_end: 



add 
add 
Ids 

psha #16, yO 



#-14, r7 
r7 , rO 
rO, yO 



psha x0,y0,a0 
psha xl,yO,al 

psha xO,y0,a0 



psha xl , yO , al 
psha x0,y0,a0 



;r7=MLS-14 

;rO=NLS = NLSmin + (MLS - 14 ) 



movs 
movx 
movx 
movs 
movx 
movx 
movx 
movx 
movx 
movx 



, w @r4 
w @r4 

. w @r4 
w aO , 
w al , 
w aO, 

, w @r4 

, w @r4 
w al, 

, w aO , 



+ , xO 
+ ,xl 
+ , xO 
@r5 + 
@r5 + 
@r5 + 
+ , xl 
+ , xO 
@r5 + 
®r5 + 
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rts 
nop 
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